 1  HIMEM: 8990
 2  PRINT  CHR$ (4);"BLOAD DLORES.L26"
 3  PRINT  CHR$ (4);"BLOAD DREAM1"
 4  CALL 36600
 10 A = 9000:YY = 47
 24 D = 0:B =  PEEK (A):A = A + 1
 25  IF B = 250 THEN  GOTO 30
 27  IF B > 15 THEN B = B - 16:D = D + 1: GOTO 27
 28  GOSUB 300: GOTO 24
 30  IF YY = 0 THEN  GOTO 100
 31 YY = YY - 1:P = 0: GOTO 24
 100  GOTO 100
 300 PD = P + D
 301  IF PD > 79 THEN PD = PD - 1: GOTO 301
 302  POKE 36691,B: CALL 36690
 303  POKE 37021,P: POKE 37023,PD:
 304  POKE 37025,YY: CALL 37020:P = PD: RETURN 


DLORES.L26 IS A LIBRARY OF DOUBLE LORES MEMORY MOVES
AND SCREEN DRAWING CODE, NOTHING IS USED IN THE DEMO
EXCEPT A CALL TO A COLOR AND PLOT ROUTINES... AS DESCRIBED BELOW...

-------------------------------------------------------
	COLOR: (Regular LORES Colors 0 thru 15)

	V2	POKE 36691,C:CALL 36690

-------------------------------------------------------
	HLIN: - (X1,X2 AT Y) - (X1+X2 - 0-79) (Y - 0-39)

	 V2	POKE 37021,X1:POKE 37023,X2:POKE 37025,Y:CALL 37020

NOTE:  THE LARGE SIZE OF DREAM1 IS BECAUSE THE IMAGE IS VERTICALLY MUCH LARGER THAN
80X48, BUT IN THIS DEMO YOU ONLY SEE THE FIRST 80X48 PART OF THE SCREEN.